home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / cnet / cnet_pager.lha / doors / pager / PagerConfig < prev    next >
Encoding:
Text File  |  1998-03-15  |  23.8 KB  |  485 lines
  1. /**************************************************************************\
  2.           $VER: CNet Pager Config, v5.20 (15-Mar-98) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. a=sourceline(2);parse var a . ", "ver" ("vdate")" .
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;mg=maygetchar
  7. a="rexxsupport.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
  8. a="rexxreqtools.library";if ~show("l",a) then if ~addlib(a,0,-30) then exit
  9. parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  10.  
  11. /* was 1200038 */
  12. gu 47;loc=(result=-1) /* In Local Mode? (3.05c & 4.45) */
  13.  
  14. call SETUP ; call READCONFIG ; call SCREEN1 ; save=0 ; it=it.1
  15.  
  16. START:
  17.   pt=it.screen.it ; se "z2c9"pt"z2c07H"
  18.   gc ; a=c2d(result) ; call CHECK
  19.   if screen=1 & index("123SQGTP",d2c(a))~=0 then do ; tr it.screen.it
  20.     if d2c(a)="R" then do
  21.       se "z0" ; call SCREEN1 ; signal START ; end
  22.     if d2c(a)="S" then do
  23.       it=9 ; signal EDIT1_9 ; end
  24.     if d2c(a)="Q" then do
  25.       it=10 ; signal EDIT1_10 ; end
  26.     if index("GP",d2c(a))>0 then do
  27.       it=17 ; signal EDIT1_17 ; end
  28.     if d2c(a)="T" then do ; it=20 ; signal EDIT1_20 ; end
  29.     if d2c(a)="1" then do ; it=16 ; signal EDIT1_16 ; end
  30.     if d2c(a)="2" then do ; it=6 ; signal EDIT1_6 ; end
  31.     if d2c(a)="3" then do ; it=8 ; signal EDIT1_8 ; end
  32.   end
  33.   if screen=2 & index("0123456789FN+=.>BL-,<GPRKS",d2c(a))~=0 then do
  34.     tr it.screen.it
  35.     if index("FN+=.>",d2c(a))>0 then do ; it=7 ; signal EDIT2_7 ; end
  36.     if index("BL-,<",d2c(a))>0 then do ; it=17 ; signal EDIT2_17 ; end
  37.     if index("GP",d2c(a))>0 then do ; it=8 ; signal EDIT2_8 ; end
  38.     if d2c(a)="R" then do ; it=18 ; signal EDIT2_18 ; end
  39.     if d2c(a)="K" then do ; it=23 ; signal EDIT2_23 ; end
  40.     if d2c(a)="S" then do ; it=25 ; signal EDIT2_25 ; end
  41.     if d2c(a)/2~=d2c(a)%2 & d2c(a)=sy1 then do
  42.       it=24 ; signal EDIT2_24 ; end
  43.     if d2c(a)/2=d2c(a)%2 & d2c(a)=sy2 then do
  44.       it=26 ; signal EDIT2_26 ; end
  45.   end
  46.   do 2 ; mg ; b=result ; end
  47.   if a=27 & b="NOCHAR" then signal QUIT
  48.   if a=13 then signal START2
  49.   if b="A" then do
  50.     tr it.screen.it ; a=pos(right(it,2,"0")"-",zU.screen)+3
  51.     it=strip(substr(zU.screen,a,2),"l","0") ; end
  52.   if b="B" then do
  53.     tr it.screen.it ; a=pos(right(it,2,"0")"-",zD.screen)+3
  54.     it=strip(substr(zD.screen,a,2),"l","0") ; end
  55.   if find(zNO.screen,it)>0 then signal START
  56.   if b="C" then do
  57.     tr it.screen.it ; a=pos(right(it,2,"0")"-",zR.screen)+3
  58.     it=strip(substr(zR.screen,a,2),"l","0") ; end
  59.   if b="D" then do
  60.     tr it.screen.it ; a=pos(right(it,2,"0")"-",zL.screen)+3
  61.     it=strip(substr(zL.screen,a,2),"l","0") ; end
  62.  signal START
  63.  
  64. START2: ; a="EDIT"screen"_"it ; signal (a)
  65. EDIT1_1:;call ADD(logN);se "9Hz2cei4 9}z0";gu 70;a=result
  66.   if a~="" then do;save=1;if exists("sysdata:log/"logN) then
  67.     address command "rename sysdata:log/"logN" sysdata:log/"a;logN=a;end
  68.   else tr "9Hz2ce"left(logN,9)"z0";signal START
  69.  
  70. EDIT1_2:;reqtitle="Select Default FSend Path";call GF
  71.   reqtags="rt_reqpos=reqpos_centerscr rtfi_flags=freqf_nofiles rt_screen="adr
  72.   a=rtfilerequest(fpath," ",reqtitle,,reqtags);if a="" then a=fpath
  73.   else do;save=1;fpath=strip(a);end;tr "19Hz2ce"left(a,25)"z0"
  74.  signal START
  75.  
  76. EDIT1_3:;cost=cost+1;save=1;if cost>7 then cost=0
  77.   tr "19Hz2ce"co.cost"z0";signal START
  78.  
  79. EDIT1_4:;kill=kill+1;save=1;if kill>7 then kill=0
  80.   tr "19Hz2ce"ki.kill"z0";signal START
  81.  
  82. EDIT1_5:;call ADD(chvo);se "19Hz2cei4 55}z0";gu 70;a=result
  83.   if a="" then a="<USE NO SPEECH>"
  84.   if upper(a)="SAY" then a="Say -f -s180 -p170 <TXT>"
  85.   if upper(a)="SPEAK" then a='echo "<TXT>" >speak:'
  86.   save=1;chvo=a;tr "19Hz2ce"left(chvo,55)"z0";signal START
  87. EDIT1_6:;if loc~=1 then do;call COM(6,com6);se "w3";call COM(19,com1);signal START;end
  88.   if left(chvo,2)="<U" then do;call COM(5,com7);se "w2";call COM(19,com1);signal START;end
  89.   call COM(4,com4);a=index(upper(chvo),"<TXT>")
  90.   b=delstr(chvo,a,5);b=insert("now testing seenet uh meega pagers speech!",b,a)
  91.   address command b;call COM(19,com1);signal START
  92. EDIT1_7:;call ADD(chsp);se "19Hz2cei4 55}z0";gu 70;a=result
  93.   if a="" then a="<UsE NO SOUND>";save=1;chsp=a
  94.   tr "19Hz2ce"left(chsp,55)"z0";signal START
  95. EDIT1_8:;if loc~=1 then do;call COM(6,com6);se "w3";call COM(19,com1);signal START;end
  96.   if left(chsp,2)="<U" then do;call COM(5,com8);se "w2";call COM(19,com1);signal START;end
  97.   call COM(4,com5)
  98.   address command chsp" sysdata:chat.snd";call COM(19,com1);signal START
  99. EDIT1_9:;call SAVECONFIG;signal START
  100. EDIT1_10:;signal QUIT
  101. EDIT1_11:;if gra=1 then gra=0;else gra=1;tr "4Hz2ce"left(word("No Yes",gra+1),3)
  102.   save=1;signal START
  103. EDIT1_12:;cb=cb+1;save=1;if cb>3 then cb=0;tr "4Hz2ce"cb.cb"z0"
  104.   signal START
  105. EDIT1_13:;call ADD(ac);se "4Hz2cei4 20}z0";gu 70;a=result
  106.   if a~="" then do;ac=a;save=1;end
  107.   else tr "4Hz2ce"left(ac,20)"z0";signal START
  108. EDIT1_14:;logK=logK+1;save=1;if logK>3 then logK=0
  109.   tr "4Hz2ce"qk.logK"z0";signal START
  110. EDIT1_15:;title="Select Pager's Font";call GF
  111.   tags="rt_reqpos=reqpos_centerscr rtfo_height=190 rtfo_fontname="font
  112.   tags=tags".font rtfo_fontheight="size" rt_screen="adr
  113.   a=rtfontrequest(title,,tags);if RTresult=0 then signal START
  114.   f=left(RTresult.name,length(RTresult.name)-5) ; s=RTresult.height
  115.   if f=font & s=size then signal START ; font=f ; size=s ; save=1
  116.   tr "54Hz2ce"left(font" ("size")",25)"z0";signal EDIT1_16
  117. EDIT1_16:;if loc~=1 then do;call COM(6,com6);se "w3";call COM(19,com1);signal START;end;call COM(4,com3)
  118.   reqtitle="Testing the Font";reqtext="Here's some text in the `"font"' font at `"size"' points!";call GF
  119.   reqtags="rt_reqpos=reqpos_centerscr rt_font="font".font/"size" rt_screen="adr
  120.   a=rtezrequest(reqtext,,reqtitle,reqtags);call COM(19,com1);signal START
  121. EDIT1_17:;it.1=it;screen=2;se "z0";call SCREEN2;it=it.screen;signal START
  122. EDIT1_18:;if cc=1 then cc=0;else cc=1;tr "3Hz2ce"left(word("No Yes",cc+1),3)"z0"
  123.   save=1;signal START
  124. EDIT1_19:;hr=hr+1;save=1;if hr>1 then hr=0
  125.   tr "3Hz2ce"left(word("No Yes",hr+1),3)"z0";signal START
  126. EDIT1_20:;if loc~=1 then do;call COM(6,com6);se "w3";call COM(19,com1);signal START;end
  127.   call COM(4,com2);if left(chsp,2)~="<U" then address command chsp" SYSDATA:CHAT.SND"
  128.   if left(chvo,2)~="<U" then do ; a=index(upper(chvo),"<TXT>")
  129.   b=delstr(chvo,a,5);b=insert("now testing the seenet uh meega pager!",b,a)
  130.   address command b ; end
  131.   gu 23;port=result;gu 1;h=result;gu 3;r=result;user=h" ("r")";gu 12;date=result
  132.   date=translate("HIJ. EF, LMNO (QRSTUVm)",date,"ABCDEFGHIJKLMNOPQRSTUV")
  133.   if substr(date,21,1)=" " then date=delstr(date,21,2)
  134.   if substr(date,16,1)=" " then date=delstr(date,16,1)
  135.   gu 8;syscom=result;reason="Now testing the CNet Amiga Pager!"
  136.   reqtitle=center("CNet Amiga Pager, "ver" Written by Dotoran!",78);cr="0a"x
  137.   reqtext="  Page: "date" for "sys.1||cr||cr"  User: "user" Port "port
  138.   if syscom>"" then reqtext=reqtext||" ["syscom"]" ; reqtext=reqtext||cr||cr"Reason: `"reason"'"
  139.   reqgads="_Chat|_OLM|_FSend|_Terminate|_Gone In 5|_Unavailable|_Busy|Ignore" ; call GF
  140.   reqtags="rt_reqpos=reqpos_centerscr rtez_defaultresponse=0 rt_font="font".font/"size" rt_screen="adr
  141.   a=rtezrequest(reqtext,reqgads,reqtitle,reqtags);call COM(19,com1);signal START
  142.  
  143. EDIT2_1:
  144.   call ADD(sys.sy1);se "13Hz2cei4 20}";gu 70;a=result
  145.   if datatype(a,"n")=1 then a=a"!";findaccount a;z=result;if z=0 then z=id.sy1
  146.   loadscratch z;savescratch (-z);getscratch 1;sys.sy1=result
  147.   getscratch 1101133;ge=result
  148.   id.sy1=z;ge.sy1=ge;se "13H"left(sys.sy1,20)
  149.   save=1;signal START
  150. EDIT2_2:
  151.   call ADD(mid.sy1);se "13Hz2cei4 20}";gu 70;a=result
  152.   if a="" then do;a=1;se "13Hcf"a;end
  153.   if a~=mid.sy1 then save=1;mid.sy1=a;signal START
  154. EDIT2_3:
  155.   if left(chvo,2)="<U" then signal START
  156.   call ADD(say.sy1);se "13Hz2cei4 50}";gu 70;a=result
  157.   if a="" then do;a="<DO NOT USE>";se "13Hcf"a;end
  158.   if a~=say.sy1 then save=1;say.sy1=a;signal START
  159. EDIT2_4:
  160.   call ADD(sys.sy2);se "13Hz2cei4 20}";gu 70;a=result
  161.   if datatype(a,"n")=1 then a=a"!";findaccount a;z=result;if z=0 then z=id.sy2
  162.   loadscratch z;savescratch (-z)
  163.   getscratch 1;sys.sy2=result;getscratch 1101133;ge=result
  164.   id.sy2=z;ge.sy2=ge;se "13H"left(sys.sy2,20)
  165.   save=1;signal START
  166. EDIT2_5:
  167.   call ADD(mid.sy2);se "13Hz2cei4 20}";gu 70;a=result
  168.   if a="" then do;a=1;se "13Hcf"a;end
  169.   if a~=mid.sy2 then save=1;mid.sy2=a;signal START
  170. EDIT2_6:
  171.   if left(chvo,2)="<U" then signal START
  172.   call ADD(say.sy2);se "13Hz2cei4 50}";gu 70;a=result
  173.   if a="" then do;a="<DO NOT USE>";se "13H"a;end
  174.   if a~=say.sy2 then save=1;say.sy2=a;signal START
  175. EDIT2_7:
  176.   a=sy2+1;if sys.sy2="" & sys.a="" then signal START
  177.   sy1=sy1+2;sy2=sy2+2;call SCREEN2B;signal START
  178. EDIT2_8:;it.2=it;screen=1;se "z0";call SCREEN1;it=it.screen;signal START
  179. EDIT2_9:
  180.   call ADD(grp1);se "2Hz2cei4 10}";gu 70;a=result
  181.   if a~=grp1 then save=1;grp1=a;signal START
  182. EDIT2_10:
  183.   call ADD(grp2);se "2Hz2cei4 10}";gu 70;a=result
  184.   if a~=grp2 then save=1;grp2=a;signal START
  185. EDIT2_11:
  186.   call ADD(grp3);se "2Hz2cei4 10}";gu 70;a=result
  187.   if a~=grp3 then save=1;grp3=a;signal START
  188. EDIT2_12:
  189.   call ADD(grp4);se "2Hz2cei4 10}";gu 70;a=result
  190.   if a~=grp3 then save=1;grp3=a;signal START
  191. EDIT2_13:
  192.   if left(chsp,2)="<U" then signal START
  193.   call ADD(snd.sy1);se "52Hz2cei4 20}";gu 70;a=result
  194.   if a="" then do;a="<DO NOT USE>";se "52Hcf"a;end
  195.   if a~=snd.sy1 then save=1;snd.sy1=a;signal START
  196. EDIT2_14:
  197.   call ADD(pos.sy1);se "52Hz2cei4 10}";gu 70;a=result
  198.   if a="" then do;a="0-";se "52Hcf"a;end
  199.   if a~=pos.sy1 then save=1;pos.sy1=a;signal START
  200. EDIT2_15:
  201.   if left(chsp,2)="<U" then signal START
  202.   call ADD(snd.sy2);se "52Hz2cei4 20}";gu 70;a=result
  203.   if a="" then do;a="<DO NOT USE>";se "52Hcf"a;end
  204.   if a~=snd.sy2 then save=1;snd.sy2=a;signal START
  205. EDIT2_16:
  206.   call ADD(pos.sy2);se "52Hz2cei4 10}";gu 70;a=result
  207.   if a="" then do;a="0-";se "52Hcf"a;end
  208.   if a~=pos.sy2 then save=1;pos.sy2=a;signal START
  209. EDIT2_17:
  210.   if sy1=1 then signal START
  211.   sy1=sy1-2;sy2=sy2-2;call SCREEN2B;signal START
  212. EDIT2_18:
  213.   se "z0";call SCREEN2;signal START
  214. EDIT2_19:
  215.   call ADD(sys1);se "4Hz2cei4 10}";gu 70;a=result
  216.   if a~=sys1 then save=1;sys1=a;signal START
  217. EDIT2_20:
  218.   call ADD(sys2);se "4Hz2cei4 10}";gu 70;a=result
  219.   if a~=sys2 then save=1;sys2=a;signal START
  220. EDIT2_21:
  221.   call ADD(sys3);se "4Hz2cei4 10}";gu 70;a=result
  222.   if a~=sys3 then save=1;sys3=a;signal START
  223. EDIT2_22:
  224.   call ADD(sys4);se "4Hz2cei4 10}";gu 70;a=result
  225.   if a~=sys4 then save=1;sys4=a;signal START
  226. EDIT2_23:
  227.   sys.sy1="<to be deleted>";save=1;se "13Hcb"left(sys.sy1,20)
  228.  signal START
  229. EDIT2_25:
  230.   sys.sy2="<to be deleted>";save=1;se "13Hcb"left(sys.sy2,20)
  231.  signal START
  232. EDIT2_24:;EDIT2_26:;if it=24 then sy=sy1;else sy=sy2
  233.   if loc~=1 then do;call COM(6,com6);se "w3";call COM(19,com1);signal START;end
  234.   if sys.sy="" then do;call COM(5,com9);se "w2";call COM(19,com1);signal START;end;call COM(4,com2)
  235.   if index("<D<U",left(snd.sy,2))=0 then address command chsp" "snd.sy
  236.   if index("<D<U",left(say.sy,2))=0 then do ; a=index(upper(chvo),"<TXT>")
  237.   b=delstr(chvo,a,5);b=insert(say.sy,b,a) ;address command b ; end;gu 8;syscom=result
  238.   gu 23;port=result;gu 1;h=result;gu 3;r=result;user=h" ("r")";gu 12;date=result
  239.   date=translate("HIJ. EF, LMNO (QRSTUVm)",date,"ABCDEFGHIJKLMNOPQRSTUV")
  240.   if substr(date,21,1)=" " then date=delstr(date,21,2)
  241.   if substr(date,16,1)=" " then date=delstr(date,16,1)
  242.   reason="Testing the Pager!"
  243.   reqtitle=center("CNet Amiga Pager, "ver" Written by Dotoran!",78);cr="0a"x
  244.   reqtext="  Page: "date" for "sys.sy||cr||cr"  User: "user" Port "port
  245.   if syscom>"" then reqtext=reqtext" ["syscom"]" ; reqtext=reqtext||cr||cr"Reason: `"reason"'"
  246.   reqgads="_Chat|_OLM|_FSend|_Terminate|_Gone In 5|_Unavailable|_Busy|Ignore" ; call GF
  247.   reqtags="rt_reqpos=reqpos_centerscr rtez_defaultresponse=0 rt_font="font".font/"size" rt_screen="adr
  248.   a=rtezrequest(reqtext,reqgads,reqtitle,reqtags);call COM(19,com1);signal START
  249.  
  250. QUIT:;se "1Hz0";if save=0 then exit
  251.   else do;se "1HCcbChanges cawere made. cfSave cathem first? c7[c9Yesc7]ca: c9"
  252.   gc;a=result;if a="N" then do;tr "ceNoca.";exit;end;tr "Yesca!"
  253.   call SAVECONFIG;exit
  254.  
  255. GF:;lo=showlist("l","intuition.library",,"a");call forbid()
  256.   adr=c2d(next(lo,60),4);call permit();return
  257.  
  258. READCONFIG:
  259.   call open(f1,df"PagerConfigF","r")
  260.     a=readln(f1);parse var a gra"|"cc"|"cb"|"ac"|"hr"|"j
  261.     a=readln(f1);parse var a fpath"|"cost"|"kill"|"j
  262.     a=readln(f1);parse var a chsp"|"chvo"|"j
  263.     a=readln(f1);parse var a font"|"size"|"logN"|"logK"|"j
  264.     a=readln(f1);parse var a mtot"|"grp1"|"sys1"|"grp2"|"sys2"|",
  265.                              grp3"|"sys3"|"grp4"|"sys4"|"j
  266.     do i=1 to mtot;a=readln(f1)
  267.       parse var a id.i"|"sys.i"|"ge.i"|"mid.i"|"pos.i"|"snd.i"|"say.i"|"j
  268.     end i
  269.   call close(f1);return
  270. SAVECONFIG:
  271.   do a=1 until sys.a="" ; end ; mtot=a-1 ; mt=mtot
  272.   do i=1 to mtot;if sys.i="<to be deleted>" then mt=mt-1;end i
  273.   if mtot~=mt then do;grp1="";grp2="";grp3="";grp4=""
  274.     sys1="";sys2="";sys3="";sys4="";end
  275.   call open(f1,df"PagerConfigF","w")
  276.     call writeln(f1,gra"|"cc"|"cb"|"ac"|"hr"|vars: gra-cc-cb-ac-hr")
  277.     call writeln(f1,fpath"|"cost"|"kill"|vars: fpath-cost-kill")
  278.     call writeln(f1,chsp"|"chvo"|vars: chsp-chvo")
  279.     call writeln(f1,font"|"size"|"logN"|"logK"|vars: font-size-logN-logK")
  280.     a=mt"|"grp1"|"sys1"|"grp2"|"sys2"|"grp3"|"sys3"|"grp4"|"sys4
  281.     a=a"|vars: mtot-grp1-sys1-grp2-sys2-grp3-sys3-grp4-sys4"
  282.     call writeln(f1,a)
  283.     do i=1 to mtot
  284.       a=id.i"|"sys.i"|"ge.i"|"mid.i"|"pos.i"|"snd.i"|"say.i"|vars: "
  285.       a=a"id.-sys.-ge.-mid.-pos.-snd.-say."
  286.       if sys.i~="<to be deleted>" then call writeln(f1,a)
  287.     end i
  288.   call close(f1);return
  289.  
  290. SETUP: ; screen=1
  291.   it.1.1 ="0HLogName"
  292.   it.1.2 ="3HFile Send Path"
  293.   it.1.3 ="2HCost Percentage"
  294.   it.1.4 ="3HFile Kill Type"
  295.   it.1.5 ="3HSpeech Options"
  296.   it.1.6 ="13HTESTu12u0"
  297.   it.1.7 ="5HSound Player"
  298.   it.1.8 ="13HTESTu13u0"
  299.   it.1.9 ="13Hu1Su0AVE"
  300.   it.1.10="24Hu1Qu0UIT"
  301.   it.1.11="4HGraphics"
  302.   it.1.12="7HAllow ChatBacks"
  303.   it.1.13="5HChatBack Access's"
  304.   it.1.14="4HAsk After Log View"
  305.   it.1.15="48HFont"
  306.   it.1.16="48HTESTu11u0"
  307.   it.1.17="35Hu1Gu0oto `SysOps' Screen"
  308.   it.1.18="1HPass to CC"
  309.   it.1.19="2HUse 12 Hr"
  310.   it.1.20="62Hu1Tu0EST PAGER"
  311.   max.1=20 ; it.1=1 ; zNO.1=" 3 5 6 7 8 13 "
  312.   zU.1="20-19-18-17-16-15-14-13-12-11-10-09-08-07-06-05-04-03-02-01-20"
  313.   zD.1="01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-01"
  314.   zR.1="11-18-11-12-19-12-01-14-01-02-15-02-04-16-04-09-10-17-20-09"
  315.   zL.1="20-17-10-09-20-16-04-16-15-02-15-14-01-14-19-12-19-18-11-18"
  316.  
  317.   it.2.1 ="2HSysOp #"
  318.   it.2.2 ="2HMail ID's"
  319.   it.2.3 ="5HSpeech"
  320.   it.2.4 ="2HSysOp #"
  321.   it.2.5 ="2HMail ID's"
  322.   it.2.6 ="5HSpeech"
  323.   it.2.7 ="17Hu1Fu0orwards Two SysOps"
  324.   it.2.8 ="19Hu1Pu0revious Screen"
  325.   it.2.9 ="3HGroup 1"
  326.   it.2.10="3HGroup 2"
  327.   it.2.11="3HGroup 3"
  328.   it.2.12="3HGroup 4"
  329.   it.2.13="37HSound to Play"
  330.   it.2.14="36HPort(s) Online"
  331.   it.2.15="37HSound to Play"
  332.   it.2.16="36HPort(s) Online"
  333.   it.2.17="43Hu1Bu0ackwards Two SysOps"
  334.   it.2.18="46Hu1Ru0eDraw Screen"
  335.   it.2.19="4HSysOp(s)"
  336.   it.2.20="4HSysOp(s)"
  337.   it.2.21="4HSysOp(s)"
  338.   it.2.22="4HSysOp(s)"
  339.   it.2.23="64Hu1Ku0ILL SYSOP"
  340.   it.2.24="64HTEST SYSOP"
  341.   it.2.25="64HKILL u1Su0YSOP"
  342.   it.2.26="64HTEST SYSOP"
  343.   max.2=24 ; it.2=9 ; zNO.2=""
  344.  
  345.   zU.2="26-25-24-23-22-21-20-19-18-17-16-15-14-13-12-11-10-09-08-07-06-05-04-03-02-01-26"
  346.   zD.2="01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-01"
  347.   zR.2="09-19-09-10-20-10-11-21-11-12-22-12-01-13-01-02-14-23-02-03-24-03-04-15-04-05-16-25-05-06-26-06-07-17-07-08-18-08"
  348.   zL.2="18-08-18-17-07-17-26-06-26-25-16-05-25-15-04-15-24-03-24-23-14-02-23-13-01-13-22-12-22-21-11-21-20-10-20-19-09-19"
  349.  
  350.   qk.0="Query w/ Yes "
  351.   qk.1="Query w/ No  "
  352.   qk.2="Answer w/ Yes"
  353.   qk.3="Answer w/ No "
  354.  
  355.   co.0="Free Download          "
  356.   co.1="Deduct 1 x Bytes       "
  357.   co.2="Deduct 2 x Bytes       "
  358.   co.3="Deduct 3 x Bytes       "
  359.   co.4="Free Download ALWAYS   "
  360.   co.5="Deduct 1 x Bytes ALWAYS"
  361.   co.6="Deduct 2 x Bytes ALWAYS"
  362.   co.7="Deduct 3 x Bytes ALWAYS"
  363.  
  364.   ki.0="Don't Kill Download        "
  365.   ki.1="Kill After Download        "
  366.   ki.2="After DL or UnSelect       "
  367.   ki.3="Kill When UnSelected       "
  368.   ki.4="Don't Kill Download EVER   "
  369.   ki.5="Kill After Download ALWAYS "
  370.   ki.6="After DL or UnSelect ALWAYS"
  371.   ki.7="Kill When UnSelected ALWAYS"
  372.  
  373.   cb.0="No    "
  374.   cb.1="Yes, 1"
  375.   cb.2="Yes, 2"
  376.   cb.3="Yes, 3"
  377.   com1="caUse ceArrow Keys cato ceMoveca, c7<cbENTERc7> cato cbEditca, c7<c9ESCc7> cato c9Quitca/c9Saveca!"
  378.   com2="cbTesting ceCNet cfPagerca..."
  379.   com3="cbTesting ceRequestor cfFontca..."
  380.   com4="cbTesting cfPager ceSpeechca..."
  381.   com5="cbTesting cfPager ceSoundca..."
  382.   com6="cbTesting camay c9ONLY cabe done in cfLOCAL camode..."
  383.   com7="caThere is no ceSPEECH cato cbTestca!"
  384.   com8="caThere is no cfSOUND cato cbTestca!"
  385.   com9="caThere is no ccSYSOP cato cbTestca!"
  386.   id.=1 ; ge.=1 ; mid.=1 ; sy1=1 ; sy2=2 ; sys.=""
  387.   snd.="<DO NOT USE>" ; pos.="0-" ; mid.="1" ; say.="<DO NOT USE>"
  388.  return
  389.  
  390. ADD: ; parse arg text ; se "L1305640 #"text"}" ; return
  391. COM: ; parse arg mci,text
  392.   se "1H@4z0c7"center(text,78+(mci*3))"" ; return
  393.  
  394. SCREEN1:
  395.   tr "@4       ÚÄÄÄÄÄ¿          ÜÜÜ  ßÛÜÛÛßÛÜ"
  396.   tr "  ÜÜÜ  ³CNet4³CÜÛß ßÛÜ  ßÛÜ  ß  Written by: Dotoran of Frontiers BBS!"
  397.   tr "ÜÛÛßÛÛܳAmiga³  ÜÛÛÛÜ  ßÛÜÛß    ßÛÜ                                          ß"
  398.   tr "ÛÛ   ÛÛ³ÜÛÛÛܳ ßÛÛÜ ßÛÜ  ßÛÜ ÜÛ  ßÛÜ       Graphics:        Pass to CC:       "
  399.   tr " ÛÛÜÛÛßÀÛÛ ßÛÛÜ  ßÛÛÜÜÛÛÜ  ßÛß Ü ÜÜÜÜ                                         "
  400.   tr "Ü ÛÛÜ ÜÜ ÛÛÜ ßÛÜÛ  ßßß  ßÛ ÜÜÜ      Allow ChatBacks:         Use 12 Hr:       "
  401.   tr " Ü ßÛÜ  Ü ßÛÛÛßßß   ßÛÜÜÛß  "ver" ChatBack Access's:                          "
  402.   tr "    ßÛÜ   ÜÜÜÜÜ     ÜÜÜÜÜÜ                                                    "
  403.   tr "    ÜÜÜÜ LogName:                Ask After Log View:                          "
  404.   tr "                                                                              "
  405.   tr "  File Send Path:                              Font:                          "
  406.   tr " Cost Percentage:                                                             "
  407.   tr "  File Kill Type:                              TESTu11u0                          "
  408.   tr "                                                                              "
  409.   tr "  Speech Options:                                                             "
  410.   tr "            TESTu12u0 (Using `Now testing CNet Amiga Pagers Speech')              "
  411.   tr "                                                                              "
  412.   tr "    Sound Player:                                                             "
  413.   tr "            TESTu13u0 (Using `SysData:Chat.Snd' file)                             "
  414.   tr "                                                                              "
  415.   tr "            u1Su0AVE       u1Qu0UIT       u1Gu0oto `SysOps' Screen       u1Tu0EST PAGER       "
  416.   tr "Ü                                                                            Üz2ce"
  417.   tr "4H"word("No Yes",gra+1)"3H"word("No Yes",cc+1)
  418.   tr "4H"cb.cb"3H"word("No Yes",hr+1)
  419.   tr "4H"ac
  420.   tr "9H"logN"4H"qk.logK
  421.   tr "19H"fpath"54H"font" ("size")"
  422.   tr "19H"co.cost
  423.   tr "19H"ki.kill
  424.   tr "19H"chvo
  425.   tr "19H"chsp
  426.   call COM(19,com1)
  427.  return
  428.  
  429. SCREEN2:
  430.   tr "f1@4       ÚÄÄÄÄÄ¿          ÜÜÜ  ßÛÜÛÛßÛÜ"
  431.   tr "  ÜÜÜ  ³CNet4³CÜÛß ßÛÜ  ßÛÜ  ß  Written by: Dotoran of Frontiers BBS!  "
  432.   tr "ÜÛÛßÛÛܳAmiga³  ÜÛÛÛÜ  ßÛÜÛß    ßÛÜ                                          ß"
  433.   tr "ÛÛ   ÛÛ³ÜÛÛÛܳ ßÛÛÜ ßÛÜ  ßÛÜ ÜÛ  ßÛÜ                                          "
  434.   tr " ÛÛÜÛÛßÀÛÛ ßÛÛÜ  ßÛÛÜÜÛÛÜ  ßÛß Ü ÜÜÜÜ                                         "
  435.   tr "Ü ÛÛÜ ÜÜ ÛÛÜ ßÛÜÛ  ßßß  ßÛ ÜÜÜ  Group 1:             SysOp(s):                "
  436.   tr " Ü ßÛÜ  Ü ßÛÛÛßßß   ßÛÜÜÛß      Group 2:             SysOp(s):                "
  437.   tr "    ßÛÜ   ÜÜÜÜÜ     ÜÜÜÜÜÜ      Group 3:             SysOp(s):                "
  438.   tr "    ÜÜÜÜ       "ver"            Group 4:             SysOp(s):                "
  439.   tr "                                                                              "
  440.   tr " SysOp # 1:                         Sound to Play:                            "
  441.   tr " Mail ID's:                        Port(s) Online:             u1Ku0ILL SYSOP     "
  442.   tr "    Speech:                                                    TEST SYSOP     "
  443.   tr "                                                                              "
  444.   tr " Sysop # 2:                         Sound to Play:                            "
  445.   tr " Mail ID's:                        Port(s) Online:             KILL u1Su0YSOP     "
  446.   tr "    Speech:                                                    TEST SYSOP     "
  447.   tr "                                                                              "
  448.   tr "                u1Fu0orwards Two SysOps       u1Bu0ackward Two SysOps                 "
  449.   tr "                                                                              "
  450.   tr "                  u1Pu0revious Screen            u1Ru0eDraw Screen                    "
  451.   tr "Ü                                                                            Üz2ce"
  452.   tr "2H"grp1"4H"sys1
  453.   tr "2H"grp2"4H"sys2
  454.   tr "2H"grp3"4H"sys3
  455.   tr "2H"grp4"4H"sys4
  456.  
  457. SCREEN2B:
  458.   if sy1<10 then sy1a="u1"sy1"u0"
  459.     else sy1a=left(sy1,1)"u1"right(sy1,1)"u0"
  460.   tr "9Hc0"right(sy1,2)"75H"sy1a"ce"
  461.   snd=left(snd.sy1,20);if left(chsp,2)="<U" then snd=left("DISABLED",20)
  462.   say=left(say.sy1,50);if left(chvo,2)="<U" then say=left("DISABLED",50)
  463.   tr "13H"left(sys.sy1,20)"52H"snd
  464.   tr "13H"left(mid.sy1,20)"52H"left(pos.sy1,10);tr "13H"say
  465.   if sy2<10 then sy2a="u1"sy2"u0"
  466.     else sy2a=left(sy2,1)"u1"right(sy2,1)"u0"
  467.   tr "9Hc0"right(sy2,2)"75H"sy2a"ce"
  468.   snd=left(snd.sy2,20);if left(chsp,2)="<U" then snd=left("DISABLED",20)
  469.   say=left(say.sy2,50);if left(chvo,2)="<U" then say=left("DISABLED",50)
  470.   tr "13H"left(sys.sy2,20)"52H"snd
  471.   tr "13H"left(mid.sy2,20)"52H"left(pos.sy2,10)
  472.   tr "13H"say;call COM(19,com1)
  473.  return
  474.  
  475. CHECK:;if ARG() & ARG(1)~="###PANIC" then return ARG(1)
  476.   getcarrier;if result="TRUE" then if ARG() then return ARG(1);else return
  477.   logentry "Lost Carrier!!";bufferflush;exit
  478. SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
  479.   e2="  Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
  480.   logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
  481.   do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
  482.   bufferflush
  483. /**************************************************************************\
  484. \****************************************** Frontiers BBS (716)/823-9892 **/
  485.